home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gold Medal Software 2
/
Gold Medal Software Volume 2 (Gold Medal) (1994).iso
/
os2
/
confcopy.arj
/
CONFCOPY.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1994-01-08
|
2KB
|
99 lines
program backup_af_opstartsfiler; { By John B. Jacobsen - 1/8 1994 }
{ CopyRight John B. Jacobsen }
{ Public Domain program }
{$M $4000,0,0 }
Uses DOS, Crt;
const
confignavn = 'D:\CONFIG.SYS';
nrfilnavn = 'C:\OS2\SYS\CONFIG.001';
gemmedir = 'C:\OS2\SYS\';
shell = 'D:\OS2\MDOS\COMMAND.COM';
var
textfil : text;
f : file of byte;
ext : string[3];
filnavn : string[65];
cmdlinie : string;
svar : (ja,nej);
aktuel : byte;
stoerrelse : longint;
procedure hent_aktuelt_nr;
begin
aktuel:=1;
assign(f,nrfilnavn); {$I-} reset(f); {$I+}
if ioresult <> 0 then exit;
stoerrelse:=filesize(f);
seek(f,stoerrelse-1); read(f,aktuel); close(f);
end;
procedure er_de_ens;
var
time, oldtime : longint;
begin
svar:=nej;
str(aktuel-1,ext);
case length(ext) of
1 : ext:='00'+ext;
2 : ext:='0'+ext;
end;
assign(f,confignavn);
reset(f); getftime(f,time); close(f);
filnavn:=gemmedir+'CONFIG.'+ext;
assign(f,filnavn); {$I-} reset(f); {$I+}
if ioresult <> 0 then exit;
getftime(f,oldtime); close(f);
if oldtime=time then svar:=ja;
end;
procedure tael_op;
var
EOF, TWO : byte;
time : longint;
begin
EOF:=26; TWO:=2;
assign(f,nrfilnavn); reset(f);
getftime(f,time); stoerrelse:=filesize(f);
if aktuel=1 then
begin
seek(f,stoerrelse);
write(f,EOF,TWO);
end
else
begin
seek(f,stoerrelse-1);
inc(aktuel);
write(f,aktuel);
end;
close(f); reset(f); setftime(f,time); close(f);
end;
procedure kopier;
begin
str(aktuel,ext);
case length(ext) of
1 : ext:='00' + ext;
2 : ext:='0' + ext;
end;
cmdlinie:='/c copy '+confignavn + ' ' + gemmedir+'CONFIG.'+ext +' > nul';
exec(shell,cmdlinie);
writeln('CONFIG.SYS backuped to',gemmedir,' as no: ',ext);
tael_op;
end;
begin
writeln('Backup of CONFIG.SYS / (c) John B. Jacobsen');
hent_aktuelt_nr;
er_de_ens;
if svar=nej then kopier else writeln('Copying not nescarery !');
end.